﻿Imports PTCON

Public Class SystemDatabase

    Public Function getListDBName() As DataTable
        Dim dt As DataTable

        Dim conn As New SQLServConnect()
        conn.connect(Config.ConnectString)

        Dim sql = "SELECT * " & _
                  "FROM (master.dbo.sysdatabases) " & _
                  "WHERE dbid > 4  "
        conn.query(sql)
        dt = conn.dataTable()
        conn.close()

        Return dt
    End Function

End Class
